home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00023_print icon.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  1.4 KB  |  53 lines
  1. property ancestor, MinXLoc
  2. global gDBPictObjList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic Button"), buttonName, castName, xSprite, xLoc, me)
  6.   MinXLoc = getAt(xLoc, 1)
  7.   return me
  8. end
  9.  
  10. on performFunction me
  11.   tell the stage
  12.     playSFX(5)
  13.   end tell
  14.   MapPicture = (the member of sprite 6).number
  15.   MapCaption = MapPicture + 1
  16.   TitleMember = the number of member "print title f"
  17.   captionStatus = sendSprite(15, #getStatus)
  18.   unLoad()
  19.   doc = new(xtra("PrintOMatic"))
  20.   if not objectp(doc) then
  21.     exit
  22.   end if
  23.   pageW = getPageWidth(doc)
  24.   pageH = getPageHeight(doc)
  25.   set the textSize of member TitleMember to 14
  26.   member(TitleMember).rect = rect(0, 0, 468, 0)
  27.   TitleH = member(TitleMember).height
  28.   picth = member(MapPicture).height + member(MapCaption).height
  29.   newPage(doc)
  30.   setTextJust(doc, "centered")
  31.   newFrame(doc, rect(0, 0, pageW, TitleH + picth), 0)
  32.   append(doc, member(TitleMember), 1)
  33.   append(doc, RETURN, 1)
  34.   append(doc, member(MapPicture), 1)
  35.   append(doc, RETURN, 1)
  36.   if captionStatus = 1 then
  37.     append(doc, member(MapCaption), 1)
  38.   end if
  39.   append(doc, RETURN, 1)
  40.   append(doc, member("copyright HRW"), 1)
  41.   setDocumentName(doc, "American History")
  42.   if doJobSetup(doc) then
  43.     print(doc)
  44.   end if
  45.   doc = 0
  46.   return me
  47. end
  48.  
  49. on buttonLoc me, size
  50.   set the locH of sprite the pChannel of me to getAt([MinXLoc, 563], size)
  51.   return me
  52. end
  53.